home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / INCLUDES.SAB < prev    next >
Text File  |  1991-09-06  |  632b  |  22 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "INCLUDES.SAB" at 2,36
  5. write "Changing Utilities Included In Rent" at 7,22
  6. set v op to ""
  7. fillin op using "Enter ADD.CODE (Or <ESC>)  " at 9,26
  8. if op = "" then ; goto fin ; endif
  9. set v inc to includes in property where add.code = .op
  10. write "Current Utilities Included Are: " at 11,15
  11. write .inc at 11,47
  12. set y uti to ""
  13. fillin uti using "Enter New Utilities (Or <ESC>) -> " at 13,15
  14. if uti = "" then ; goto start ; endif
  15. change includes to .uti in property where add.code = .op
  16. change includes to .uti in cur.mast where add.code = .op
  17. goto start
  18. label fin
  19.   cls
  20.   return
  21.  
  22.